home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / UNIVERSE / TOCM.DIR / 00001_Script_1 next >
Text File  |  1995-11-16  |  719b  |  41 lines
  1. on exitFrame
  2.   global gMovieTimeMax
  3.   
  4.   if the movieTime of sprite 48 < gMovieTimeMax then
  5.     go to the frame
  6.     exit
  7.   else
  8.     
  9.     global gMovieTimeList, gMovieTimeIndex
  10.     
  11.     updateStage
  12.     
  13.     set gMovieTimeIndex = gMovieTimeIndex + 1
  14.     updateStage
  15.     
  16.     set gMovieTimeMax = getAt(gMovieTimeList, gMovieTimeIndex)
  17.     updateStage
  18.     
  19.     if listP(gMovieTimeMax) then
  20.       updateStage
  21.       
  22.       do getAt(gMovieTimeMax, 2)
  23.       updateStage
  24.       
  25.       set gMovieTimeMax = getAt(gMovieTimeMax, 1)
  26.       updateStage  
  27.     end if
  28.     
  29.     go to the frame + 1
  30.     exit
  31.   end if  
  32. end
  33.  
  34. on idle
  35.   updateStage
  36. end idle
  37.  
  38. on enterFrame
  39.   updateStage
  40. end enterFrame
  41.